with Ada.Text_Io; use Ada.Text_Io;
--with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;
with Rational_Numbers; use Rational_Numbers;
with Rational_Numbers.Components; use Rational_Numbers.Components;
--with Rational_Numbers.Binary_Operators; use Rational_Numbers.Binary_Operators;
with Rational_Numbers.Reducing_Binary_Operators;use Rational_Numbers.Reducing_Binary_Operators;
with Rational_Numbers.Io; use Rational_Numbers.Io;

procedure Test_Rational is
   --A,B,C,D : Integer := 0;
   X,Y,Res : Rational;
begin
   Put("Donnez un rationel sous la forme A|B");
   Get(X);
   Put("Donnez un rationel sous la forme A|B");
   Get(Y);
   --  Put_Line("donnez un entier ?");
   --  Get(A);
   --  Put_Line("donnez un entier positif?");
   --  Get(b);
   --  Put_Line("donnez un entier positif?");
   --  Get(c);
   --  Put_Line("donnez un entier positif?");
   --  Get(d);
   --  X := A/B; --Rational_Numbers."/"(A,B);
   --  Y := C/D;
 --Rational_Numbers."/"(C,D);
   Res := X * Y ;
   Put("le res est ");
   --  Put(Integer'Image(Numerator(Res)));
   --  Put("/");
   --  Put(Positive'Image(Denominator(Res)));
   --  New_Line;
   Put(Res);
end Test_Rational;
